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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS ue UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH DiCenee AND WITH THE 
het t te tt OF THE ae Sg ld od NOTICE. THIS SOFTWARE OR ANY OTHER 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeeponat ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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0 8 p++ 
: 0 : Facility: rms32 
0 ; > Abstract: 
0 3 this module conteine the basic buffer management 
00 4; routines for rms32. the following routines are 
38 é ; included: 
00 : rm$getpa allocate empty pages 
$00 8 ; radsetspe allocate space Ape 
688 9; rm$retpag deallocate pages 
0 40 ; rm$retspc deallocate space 
0000 41 ; rm$aldbuf allocate bdb and i/o buffer 
0000 $s 3 rm$albdb allocate bdb 
0000 43 ; rm$alblb allocate blb 
0000 44 ; rm$retbdb deallocate bdb and i/o 
444 rH 3 buffer (if any) 
0000 47 : Also included are routines and an entry-point to allocate and deallocate 
4464 rh ; journaling BDB/Buffers. These are: 
0000 50 ; rm$aldjnlbuf allocate journal BDB and buffer 
0000 a1 3 rm$aljnlbdb allocate journal BDB 
0000 26 3 rm$retjnlbdb deallocate above 
0000 53; 
0000 54 ; Environment: 
9444 2? $ star processor running starlet exec. 
9000 37 ; Author: L F Laverdure , creation date: 30-DEC-1976 
0000 59 : Modified By: 
0000 60 ; 
0000 61 ; v03-017 JwT0173 Jim Teague 1-Apr-1984 
44 66 : Disable new memory allocation for now. 
0000 64; V03-016 ywT0170 Jim Teague 22-Mar-1984 
0000 65 ; Improve memory deallocation in RMSRETSPC -- if we 
0000 66 ; can find enough consecutive scraps to make a page, 
4 of : return the page then and there. 
0000 69; V03-015 RAS0263 Ron Schaefer 6-Mar-1984 
0000 70 ; Fine-tune things a Little to improve the performance 
B808 4 : a tad. 
0000 73: v03-014 RASO219 Ron Schaefer 9-Dec-1983 
48 fe 5 Add RMS$GETBLK1 entry point. 
00 76 ; v03-012 KPLO004 Peter Lieberwirth 5-Aug-1983 
4 ue : Fix bug in v03-011. 
000 79 ; v03-011 KPLO003 Peter Lieberwirth 27-Jut-1983 : 
00 0; Add routines to allocate and deallocate journaling specific 
Be 1 ; buffers and BDBs. 
000 g 3 v03-010 KPL0002 Peter Lieberwirth 30-Apr-1983 
000 4; Add omitted macro definition. 
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v03-009 KPL0001 Peter Lieberwirth 29-Apr-1983 
Add ASSUME for MJB to insure its longword aligned. 


v03-009 MCNO001 Maria del C. Nasr 4-Mar-1983 
Preserve register R2 to R4 in call to RMSALBLB so that we 
can use for this routine one of the general Linkages defined. 


v03-008 RASO130 Ron Schaefer 14-Mar-1983 
Change BDB allocation/deallocation to use the 
new fields BDBSL_ALLOC_ADDR and BDBSW_ALLOC_SIZE. 


v03-007 KBT0470 Keith 8B. Thompson 24-Jan-1983 
Remove retistbcb hack 


v03-006 KBT0453 Keith B. Thompson 6-Jan-1983 
Put in assume statements to check the BLN to make 
sure they are longword aligned 


v03-005 RASO106 Ron Schaefer 3-Dec-1982 
Change the $SETPRT logic to eats occur when memory is 
actually created, not on every image 1/0 segment page. 
The image activator has taken care of the image 1/0 segment. 


v03-004 RAS0099 Ron Schaefer 22-Sep-1982 
Change the SEXPREG Logic to allocate a big block (128 pages) 
at a time and insert on the free List; rather than 
i grabbing a page or 2. This helps prevent 
ragmentation of PU space. 


v03-003 KBT0338 Keith 8. Thompson 10-Sep-1982 
Remove getsOspc and retsOspc routines and associated code 


v03-002 KBT0199 Keith B. Thompson 23-Aug-1982 
Reorganize psects 


v03-001 kBT0121 Keith 8. Thompson 7-Aug-1982 
Remove $sifbdef, $sfsbdef and some commented out code 


v02-026 CD0S0003 C Saether 17-Jan-1982 
Add RMSALGBPB and RMSRETGBPB routines. 


v02-025 cds0002 C Saether 99-Nov-1981 
Add and remove pages from sO page List in 
kernel mode for multi-proc. 


v02-024 CDdS0001 C Saether _ 21-Aug-1981 
Add RMSALBLB to allocate and initialize BLB's. 
Add RMSRETBLB to deallocate BLB's. 
Remove BCB allocation routine. 


V02-023 SPR34112 C Saether 16-Jun-1981 
Always allocate and deallocate in 16 byte units. 
This solves the proyin invisible hole problem. 
It also solves the irab alignment problem. 


VO2-022 REFORMAT C Saether 30-Jul-1980 22:25 
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CDS0046 C Saether 27-0¢ t-1979 13:40 
change aldbuf so buff size=0 just allocates bdb. 

store requested, not allocated siz 

fix bug if ffff (hex) bytes are requested for buffer. 
keep count of current pages in use and max used ever pa 
in shared file database. all shared pages now allocate 
initially by rmsshare - don't allocate on demand. 


Page 


e in bdb as buffer size to 


4 
(2) 


2 eee 
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0 13 -SBTTL DECLARATIONS 
3 1 
1 ; Include Files: 
1 8 3 
3 1 
160 ; 
00 161 ; Macros: 
00 19¢ ; 
00 16 
0 164 SASBDEF 3 asb 
0 165 SBDBDEF ; bdb 
0 196 SBLBDEF 3; blb 
44 16 SF WADEF ; fwa 
000 168 S$GBDDEF ; gbd 
4 4 GBHDEF 3 gbh 
000 170 SGBPBDEF 3 gbpb 
5000 171 SGBSBDEF ; gbsb 
000 Ze SIDXDEF 3 idx 
0000 17 SiFBDEF 3: ifab 
0000 174 SIRBDEF : irab 
0000 175 SRLBDEF 3 rlb 
0000 176 JBDEF 3 rjb 
0000 177 SSF SBDEF 3; sfsb 
0000 178 SLBDEF 3; slb 
0000 179 SSWBDEF 3 swb 
0000 180 VADEF ; virtual address definitions 
0000 38181 SCMKRNLDEF 3; change mode to kernel argument defs 
0000 133 PTEDEF 3; define page table entry defs 
0000 18 SACBDEF ; ast control block definitions 
0000 184 SPSLDEF 3 psl definitions 
0000 185 SPCBDEF 3 process control block definitions 
0000 186 SIMPDEF ; impure area definitions 
0000 187 SPRIDEF 
0000 188 SIRPDEF 
0000 189 SRMSDEF I ‘ 
44 19 SMJBDEF ; miscellaneous journaling buffer definitions 
0000 136 3 
it 193 ; Equated Symbols: 
0 194 ; 
000 195 
0000 197 Own St 
3; Own Storage: 
se igs 
QOOOOO1FF 0000 200 C511: .LONG 511 : constant for getting to page boundaries 
QOOOOO1FF 0004 201 MASK= “X1FF 3; mask for getting to page boundary 


i nn 
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GE ALLOCATION ROUTINE 
-SBTTL RMSGETPAG = PAGE ALLOCATION ROUTINE 


G 


RMOBUF MGR BUF FE 
VO4=000 


rs 


1s 


oOoooo 

ooooeo 

ooooo 

PES 
PIPIPIPIPININIPDPIPININPININININYINININININIPINIPINININIPINIPYNIPYIPIPINIPUPIPINIPINIPIPIPIPIPIPIPIPIPIPIPIPIPIPINNY “0 


DPUPVPVSV SUSU B® Be BS BS BB EEE EWAN NIAID NININPININDYD 2 OO OO SS 


16-SEP-1984 00:10:59 VAX/VMS Macro v04-00 P 6 
oes Pa Sea a Mm eats ft he 


RMSGETIPAG = entry point to get only a single page 
; RMSGETPAG = entry point to get requested number of pages 


OOooooceo }Z 


OOONAUE WW 
+ 


this routine allocates a ppegi ives number of pages. 
the pages are not zero filled. 


it performs this function by scanning the free page 
List of the current (process or image) i/o segmen 
for the first fit. 


if the request cannot be satisfied from the 

free page list, the routine checks for new 

(i.e. never-used) pages available in the i/o segment 
and allocates from there. 


if insufficient pages in the i/o segment then 
if in the process i/o segment 
or if rms_is inhibited from using program 
region (p0) space, return a dme error, 
Oh ee sitesete the page(s) from the program 
region. 


the pages will have exec write protection and 
either supervisor or user read depending upon 
the current i/o segment (i.e., for process and user 


eee 


0004 i/o segments respectively). 
0004 
0004 
0004 
0004 
Bob BSBW RMSGETPAG 
0004 alternate entry at rm$getipag to allocate a single ‘ 
bebe page of memory. same outputs but only r11 input required. 
0004 Input Parameters: 
0004 
0004 rii impure area pointer 
0004 r2 # of bytes required 
0004 
° ; Implicit Inputs: 
$ none 
Output Parameters: 
r3 addr of starting page 
r2 total length of buffer allocated 


(i.e., r2 on input rounded up 

to next page boundary) 
r0 status code | 
ri destroyed | 
| 
| 


: Calling sequence: 
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; Implicit Outputs: 
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yo4-000 RMSGETPAG = PAGE ALLOCATION ROUTINE mi iset 16:21:17 LMS SRCIRMOBUFMGR MAR; 1 - (4) 
004 60 ; 
r 1 § the affected free page List is updated. 
3 r e§ 3; Completion Codes: 
one és 3 standard rms. in particular, success or rm$_dme. 
004 67 ; Side Effects: 
004 68 ; 
BaRe $° 3 none 
004 0 ; 
Boe 71 3-- 
4 1s 
0004 73 RMSGETIPAG:: 
52 01 DO 0004 74 MOVL #1,R2 ; asking for 1 byte gets 1 page 
0007 75 
ied 8 : t t f list f first fit 
3 setup to scan free page list for firs 
0907 78 ; se 
0007 79 
52 FG AF CO COOP SBT eRe esta sne d ired si 
s ; round up required size 
52 F2 AF CA 0008 $e¢ apetg C511,R2 ; to Length of pages 
OOOF 8 
OOOF 84 ; 
4 85 ; scan free page list 
OOF 86 ; 
OOOF 87 
51 OC AB DE OO00F 88 MOVAL IMPSL_FREEPGLH(R11),R1 ; get free page List head 
10 AB SO51~—Cié#D Bais 89 10$: CMPL R1,I1MP$L_FREEPGLH+4(R11) ; end of List? 
iF 13 0017 290 BEQL 30 :’branch if yes 
51 61 dO 0019 91 MOVL (R1),R1 3 get next node 
52 O08 Al D1 OO01C 38 CMPL B(R1S,R2 ; Tong enough? 
F1 19 +34 9 BLSS 10$ 3 branch if not 
OD 13 00 94 BEQL 20$ : branch if exact fit 
0024 95 
0024 96 ; 
0024 97 ; we have a fit but we don't need all of the pages in the hole 
0024 98 ; = must return extras 
Bt 
51 C1 0024 01 15$: ADDL3 = R1,R2,R0 : get addr of new hole 
08 AO O08 Al 52 C3 0028 8 SUBL3. R2.8(R1),8(RO) 3; compute and store its length 
1 60 O€ ‘ 87 INSQUE (RO), (RIS 3 insert the new hole 
031 05 ; 
031 Bg ; the hole at rl is just the right size 
3 ' o3 3 remove it from the List 
1 309 ° 
535 61 OF 8 1 10 30: REMQUE (R1),R3 ; address of hole to r3 
034 11 22$: RMSSUC 
05 0037 \¢ 
PM 
08 AB 52~=«COOD 15 30$: CMPL Re JAPSL _IOSEGLENCATT) ; enough space? 
OE 14 C 316 BGTR 200 : branch if not 


RMOBUF MGR 
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O08 AB OS 
04 AB OS 


51 52. F? 8F 
51 00000080 8F 


51 80 8F 
7E 
53 SE 


2€ 50 


50 
51 a | 
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8 E 
E 
E 
E 
> E 
8 i 
4 
CO 0046 
11 QO4A 
04¢ 
Boee 
04C 
004C 
004¢ 
Q04C 
004¢ 
004¢ 
004C 
004C¢ 
E9 004C 
DS O004F 
13 0052 
4 0054 
1 0058 
0058 
0058 
0058 
0058 
0058 
78 0058 
Di 0060 
1B bog 
9A 0069 
7C 006d 
DO = O06F 
007 
007 
007 
it 
E9 0081 
Bone 
if 
3 
8p 4 
084 
9A Me 
o 
4 9C¢ 
C oF 
D6 A 
BB O00A 
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wags a os ath 9 90:) 
“SEP=1984 16: 


; take the required space from the i/o segment 


59 ve Macro V04-00 
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MOVL $L_IOSEGADDR(R11) ,R3 
SUBL2 R2,1MP$L_IOSEGLEN(R11) 


IMP 
R 

ADDL2 R2 IMP$L_IOSEGADDR(R11) 

BRB 228 


addr of space 
adjust length of remaining 


> space 
; and its start addr 
; and return success 
there is no space in the free page List or in the i/o segment. 


if this is not the pio segment, allocate the required space 
from the program region unless prohibited by user. 


ASSUME IMPS$W_RMSSTATUS EQ 0 
ASSUME IMP$V_IIOS EQ 0 
200$: BLBC (R11),205$ :; branch if process i/o seg. 
TSTL IMP$L_IOSEGADDR(R11) ; is there any image i/o seg.? 
BEQL 205$ - branch if none (error) 
BBC #IMPSV_NOPOBUFS,(R11),210$ ; branch if pO off Limits 
205$: BRW ERRDME 


: expand the program region 


210$: ASHL #-9,R2,R1 3 convert to pages 
CMPL #128,R4 ; use max (128, request) 
BLEQU 2 
MOVZBL #128,R1 
220$:  CLRQ (SPS ; temp array to receive results 
MOVL SP,R3 ; and save its addr 
SEXPREG_S PAGCNT=R1,- ; num of pa 


3 pages 
RETADR=(R3$),- : arartbond aadr of space 
ACMODE=#PSL§C_EXEC,- ; owner mode 

ION=40 3; program region 
BLBC RO, EXPREGERR 3 got it! 


the required number of pages have now been allocated. 
set the protection on them. 


3; pick up protection for pages 
3 start/end addr of space 

RE TADR=( ; start/end addr of space 
ACMODE=#PSL$C_EXEC,- 
PROT=R1 


: service shoul? not fail 
MOVL  (SP)+,R : addr of starting page 
SUBL3 RO, (SP)+,R1 ; get length-1 
INCL R1 ; and make it length 
PUSHR #*M<R2,R4,R5> ; save regs 
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74 MOVa RO,R4 s copy start addr 
75 ; & Length to proper regs 
6 BSBW RMSRETPAG 3 give pages to free Lis 
7 POPR #°M<R2,R4,R5> ; restore regs 
28 BRW RMSGETPAG ; and go use the new space 
QO EXPREGERR: 
1 TSTL (R3) ; did we get anything? 
¢ BLSS ERRDME1 : if not, report error 
8 SUBL3 = (R3) ,4(R3),RO ; how much did we get? 
4 INCL Ro ; correct Length 
5 SUBL3 = R2,RO,R1 ; did we get enough? 
5 BLSS  ERRDME2 ; nope 
§ BEQL SETPRT 3 exact amount? 
8 SUBL2 R1,4(R3) ; adjust addr array 
89 BSBB CNTREG ; give back unneeded pages 
ay BRB SETPRT 3 set the protection 
8 CNTREG: ASHL #-9,R1,R1 ; convert to pages 
9 SCNTREG_ PAGCNT=R1,- ; give back tne excess space 
9% ACMODE=#PSLSC_EXEC,- ; owner mode 
95 REGION=40 3 program region 
96 BLBC RO,ERRBUG 3; service should not fail 
97 RSB 
98 
99 ; f 
res 3 no dynamic memory available 
402 ERRDME2: 
40 MOVL RO,R1 ; return all the space 
404 BSBB Ss CNT REG : and report the error 
405 ERRDME1: 
406 POPR #*M<RO,R1> ; clean up stack 
407 ERRDME: 
408 RMSERR DME 
409 RSB 
2 
ti¢ ; the change protection system service failed 
414 ° 
aiz ERRBUG: RMSTBUG FILS_SETPRTFAIL 
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o -SBTTL RMSGETSPC - MEMORY ALLOCATION ROUTINE 

re 

9 : RMSGETSPC1 - set up free space header and get space 

9 3 RMSGETSPC = get space 

9 ; RMSGETSPC_ALT = yet another entry point to get space 

9 RMSGETBLK = get space by longwords 

2 RMSGETBLK1 - set up free space header and get space by longwords 

9 

9 
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0 
i] 
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0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 
: 


this routine allocates space within a pege one first 
e so 


if insufficient space is available, another page is 
added to the free space List. 


fit basis. the allocated space is zero 


calling sequence: 
BSBW RMSGETSPC 
alternate entry at rasgetspe att if rl has exact address of list head 


alternate entry at rm$getblk if r2 has # of longwords required and 
this # is to be stored in byte 9 of the gotten space 


SHEA amononononononononn 
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input parameters: 


rii impure area addr 
r2 # of bytes required (11 < r2 < 513) 
ri any address within page 
(space header must be at the start 
of this page) 


SRR S 


implicit inputs: 
the status of the impure area. 
output parameters: 
ri addr of block of memory 
r0 status 
r2.r3,°4 destroyed 
implicit outputs: 


the free space List is updated. 


DOCOCSCSCOCSCSOSOSOSOSOSOSSOSCSSSSOSOSOSOSOSOSSOSOOSOSOOSOSOSOSOSOOSOOSOOSOOOSOSoOS 
DWDOOODODODO ODO OOODOVOVOOOOOOVOOOWOOOOOOOODOVOOVOVOOOOOOOOONO 


Pee ee ne 


PEAS MMAMNIVIVIan 


completion codes: 


= 
o 


fwn—O0e 


standard rms32, in particular, success and dme. 
side effects: 


none. 


tena bona tea na a a) 
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RMOBUF MGR BUFFER MANAGER 16-SEP-1984 00:10:5 AX/VMS Macro v04-00 Page 
vou-000 RMSGETSPC = MEMORY ALLOCATION ROUTINE tio 00:30:39 Yams SRCIRMOBUFMGR.MAR: 1 . 
a 
eats, 
F9 $28 : 
83 rt 4 ; alternate entry here for getting space from ifab free space List 
OF9 Bi 3 additonal input: r9 = address of ifab/irab 
OF9 4 § : rl is not an input 
OF9 rt : 
OF9 484 
Ha 485 RMSGETSPC1:: 
007E 30 Fo & § BSBW SETHDR1 ; set up free space header page addr 
OFC 4 ; and fall thru into rm$getspc 
pore 488 ; 
OFC 489 ; normal entry point 
OOFC 490 ; 
OOFC 491 
OOFC 138 RMSGETSPC:: 
51 FFOO CF CA st rs BICL2 ¢511,R1 3; get header addr 
B13 495 RMSGETSPC_ALT:: 
54 51 DO 0101 496 MOVL R1,R4 ; save addr for end test 
52 OF CO 0104 497 ADDL #15,R2 ; turn request into multiple of 
52 OF CA 0107 498 BICL #15,R2 3; 16 bytes. 
010A 499 
010A 500 ; 
010A 501; scan for first fit 
010A 288 g 
C10A 50 
54 61 D1 O10A 504 10$ CMPL (R1),R4 ; end of list? 
32 13 0100 505 BEQL 50$ : branch if yes - no space found 
51 61 DO 010F 506 15$: MOVL (R1),R1 : get next node 
52° 08 Al D1 0112 = «507 CMPL =: 8 (R15, R2 : Tong enough? 
fé 19 0116 508 BLSS 10$ : branch if not 
1 13 0118 509 BEQL 20$ : branch if exact fit 
011A 510 
QO11A «511; 
O11A 2i¢ ; we have a fit but don't need extra bytes 
011A 513; return them to the free space List 
O11A 514; 
O11A 515 
50 51 52 C1 O11A 516 ADDL R2,R1,R0 3; get new hole addr 
53 08 Al 2¢ 3 Ole 517 SUBL3 R2.8(R1),R3 > compute its Length 
a D1 4 518 CMPL R3,#16 ; at least 16 bytes? 
07 19 0126 519 BLSS 20$ : branch if not, as not 
01 : 520 : big enough for a node 
08 AO 36553)—s(«éi0s«é*—=*OT 2 1 MOVL R3,8(RO) ; store hole length 
61 60 O€ C : INSQUE (RO), (R1) : & insert the new hole 
12F 4; 
12F 5 ; the hole at ri is just the right size (imagine that!) 
12F 6; (actually could be 8 bytes longer than needed) 
: : j : remove it from the List and zero fill it 
12F ; 
51 61 OF 12F 0 20$: REMQUE (R1),R1 
55 DD 0152 1 PUSHL R5 
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RMOBUF MGR BUFFER MANAGER 16-SEP-1984 00:10:5 AX/VMS Macro V04-00 Page 1 | 
you-000 RMSGETSPC = MEMORY ALLOCATION ROUTINE -SEP-1984 90:30:79 FRMS  SRCIRMOBUEMGR MAR: 1 . 5 
61 52 00 61 2 134 MOVCS #0,(R1),#0,R2,(R1) 3; zero the space, preserving R1 
Bebe OL. & aescmtte 
05 0140 5 RSB 
141 § 
141 : 
141 8 : 
141 3; found no space of required size | 
12) re 3 get another page and add it to the free space List | 
141 34g 
7E 51 7D 0141 543 508 mova =s_- R1,=( SP) | 
FECO 30 0144 544 BSBW = RMSGETPAG i get required pages (r3 = addr) | 
AO 50 €9 0147 545 BLBC RC ,ERRDME1 ; error if not available 
08 AS «52 «DO 014A 278 MOVL Re ,8(R3) ; store Length of space 
51 8 7D O14E 54 MOVa = (SP) +, R1 | 
0151 548 
0151 = 549 ; ; | 
B12) 229 ; insert the new space in ascending memory address sequence 
0151 226 ; note: rl points to last hole (i.e., highest in memory) 
0151 553; 
0151 554 
51 53 D1 0151 555 60S: CMPL R3,R1 : is this the right spot? 
09 1A 0154 556 BGTRU 70$ > branch if yes 
51 04 Ai D0 0156 557 MOVL 4(R1),R1 ; get previous hole 
54511 SOO1SAs558 CMPL RT : Back at List head? | 
ie 12 0150 559 BNEQ 60$ : branch if not | 
61 6 OE O15F 560 70$: INSQUE (R3),(R1) ; insert the hole 
AB 11 0162 561 BRB 15$ ; and go use it 
0164 562 
| 
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BUFFER MANAGER 


P 
RMSGETSPC = MEMORY ALLOCATION ROUTINE aot 


"SSEP=1986 Por2t:1? RMS. SRCIANOBUFMGR. AAR; 1 


164 64 ; 
164 65; These assumes are to make sure that all of the structures 
164 98 3 which are allocated with getblk are longword aligned. 
19 ? : they are not data in other structures can be corrupted. 
0164 63 : asb 
164 0; 
0166 71 ASSUME <<ASBSK_BLN_FIX/4>*4> £0 ASBS$K_BLN_F IX 
164 2 ASSUME <<ASBSK-BLN_FAB/4>*4> 0 ASBSK_BLN_FAB 
0164 7 ASSUME <<ASBSK_BLN_SEQ/4>*4> £0 ASB$K_BLN_SEQ 
0164 74 ASSUME <<ASBSK_BLN_REL/4>*4> £0 ASB$K_BLN_REL 
She o ASSUME <<ASBSK_BLN_IDX/4>*4> £0 ASB$K_BLN_IDX 
0164 8 3 bdb 
0164 78 ; 
0164 79 ASSUME <<BDBS$K_BLN/4>*4> EQ BDBSK_BLN 
0164 580; 
0164 581; blb 
0164 286 ; 
Hei 27 ASSUME <<BLBSK_BLN/4>*4> EQ BLB$K_BLN 
Bie 283 : fwa (the fwa is not allocated with getblk but may someday) 
0164 587 ASSUME <<FWASK_BLN/4>*4> EQ FWASK_BLN 
0164 588 ASSUME <<FWASK_BLN_FWA/4>*4> £0 FWASK_BLN_FWA 
Bie 289 ASSUME <<FWASK_BLN_BUF /4>*4> EQ FWASK_BLN_BUF 
0164 591 ; gbd 
0164 238 3 
0164 59 ASSUME <<GBD$K_BLN/4>*4> EQ GBD$K_BLN 
0164 594; 
0164 595 ; gbh 
0164 596; 
0164 597 ASSUME <<GBHSK_BLN/4>*4> EQ GBH$K_BLN 
0164 598; 
0164 599; gbpb 
0164 600; 
0164 601 ASSUME <<GBPBS$K_BLN/4>*4> EQ GBPBS$K_BLN 
0164 one 3 
0164 603 ; gbsb 
0164 604 ; 
0164 605 ASSUME <<GBSBSK_BLN/4>*4> EQ GBSB$K_BLN 
0164 606; 
thei at : idx 
164 608 ; 
the rst ASSUME <<IDXS$K_FIXED_BLN/4>*4> EQ IDX$K_F IXED_BLN 
164 611; ifab 
164 ol¢ 3 
164 61 ASSUME <<IFBSK_BLN_SEQ/4>*4> €Q IFB$K_BLN_SEQ 
164 614 ASSUME <<IFBSK_BLN_REL/4>*4> £0 IFBSK_BLN_REL 
1% oi? ASSUME <<IFBSK_BLN_IDX/4>*4> £0 IFBSK_BLN_IDX 
164 gi$ 3 irab 
164 618; 
164 619 ASSUME <<IRBSK_BLN_SEQ/4>*4> £0 IRB$K_BLN_SEQ 
164 620 ASSUME <<IRBSK_BLN_REL/4>*4> £0 IRBSK_BLN_REL 
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19 ° 1 ASSUME <<IRBSK_BLN_IDX/4>*4> £0 IRBSK_BLN_IDX 
164 6 5 § mjb 
164 624; 
19 ? 5 ASSUME <<MJBSK_BLN/4>*4> EQ MJB$K_BLN 
164 6 $ 3 rlb 
164 6 8 3 
9 ° 4 ASSUME <<RLBS$K_BLN/4>*4> EQ RLB$K_BLN 
164 631; rjb 
164 6 ¢ 3 
164 6 ASSUME <<RJBSK_BLN/4>*4> EQ RJBSK_BLN 
0164 634; 
0164 635; sfsb 
0164 636; 
0164 637 ASSUME <<SFSBSK_BLN/4>*4> EQ SF SBSK_B8LN 
0164 638; 
0164 639; slb 
0164 640 ; 
0164 641 ASSUME <<SLBSK_BLN/4>*4> EQ SLBSK_BLN 
0164 or6 : 
0164 643; swb 
0164 644; 
0164 645 ASSUME <<SWBSK_BLN/4>*4> EQ SWBSK_BLN 
0164 646 
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164 648; 
ie $03 ; alternate entry here for getting block from ifab free space List 
164 rt 3 additonal input: r9 = address of ifab/irab 
164 $36 : il is not an input 
164 655; 
164 654 
164 655 RMSGETBLK1:: 
14 10 0164 028 BSBB SETHDR1 ; set up free space header page addr 
196 65 3; and fall thru into rm$getbl 
16 658 
166 923 ; 
166 60 ; 
166 663 ; alternate entry to get space by # of longwords and store that 
0166 606 3 number in byte 9 of the returned space 
166 396665 ; 
166 664 
166 665 RMSGETBLK:: 
3s DD 0166 66 PUSH % : save # Llongwords 
= Se 9C 0168 66 ROTL #2,R2,R2 ; make into # bytes 
FF8D 30 O16C 668 BSBW RMSGETSPC 3 go get the space 
0550 €9 O16F 669 BLBC RO,10$ ; get out on error 
09 al BE F6 0172 670 CVTILB (SP) +#,9(R1) : store length 
05 0178 671 RSB 
02 BA 017 of6 10$: POPR #*M<R1> : clean stack 
05 0179 67 RSB 
017A 674 
017A 675 ;++ ; 
017A 676; subroutine to load ifab addr into r1 
QO17A «677; 
017A 678 ;-- 
017A 679 
O17A 680 SETHDR1: 
51 59 D0 Bien oR MOVL R9,R1 3 assume ifab addr in ri 
017D oh ASSUME <IRB$C_BID&1> EQ 0 
017D 684 ASSUME <IFB$C_BID&1> EQ 1 
B17 on? ASSUME IFB$B_BI1D EQ IRB$B_BID 
03 08 Ao «6©E€8 «6(017D) = 687 BLBS IFB$B_BID(R9) ,10$ ; branch if structure is ifab 
51 69 00 0181 688 MOVL IRBSL_IFAB_LNK(R9),R1 ; get ifab address from irab 
05 0184 689 10$: RSB 
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-SBTTL RMSRETPAG = PAGE DEALLOCATION ROUTINE 


BUF FE 
RMSRE 


Ps 


o 
RB MS SOOO PPPS ULVPUPV DUST SUSUSU SUSU SUSU OG 


ANAG 


Pp 


- 
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RMSRETIPAG = return one (1) page 
RMSRETPAG = deallocate pages 


this routine returns pages to the free paye list. 
the List is kept in order of ascending memory addresses. 
calling sequence: 

BSBwW RMSRETPAG 


alternate entry at rm$retipag to return a single page. 
rii,r4 are only inputs. 


input parameters: 


rii impure area address 
length in bytes of pages to be returned 
r4 address of first page to be returned 
outputs: 


r0 thru r5 destroyed 
implicit outputs: 
the free page List is updated. 
completion codes: 
none 
side effects: 


none 


OOOONAUE WN $$ O OO0 NAULS WN OOD NAUEWH  OOONAUS win 
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7 
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: entry to return a single page 


~© O00 09 00 09 09 00 CD Gd GD CD 0d G0 Cd Cd Cd Od CD CD G9 CD Cd CD OD CD C9 CD GD Cd CD GD CD CD CD CD CD 00 GD CD CD OD CD. CD CD CO. CD CD CD CD CO CD ODCD CD 


RMSRETIPAG:: 

dO MOVL #1,R5 ; 1 byte gets 1 page 
RMSRETPAG: : 

co ADDL C511,R5 ; round up Length 

CA BICL C511,R5 ; 

CA BICL €511,R4 3 get start of page 

D MOVAL EOP tf REEPEL MINT) MS ; addr of header 

) OVL R2,R : save for end of List test 
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19 48 ; 
ze eh ; scan for a hole having a higher address 
9E ; : 
ae a ae ss ore ne oe 
3 end o st? 
1 t3 AG $7 BEQL 66 : branch if yes 
54 COS D1 AG 755 CMPL Re RG 3; higher than hole being returned? 
F3 so 1F «OIA i BLSSU 10 : branch if not 
758 ; 
26 3; the hole at r2 has a higher address than that being returned. 
760 ; insert the returning hole and try to combine it with either the 
ree 3; previous hole, the next hole, or both 
763 
51 54 764 208: ott + tad ; get address past returning hole 


eee 
| i | Se) 
OA 12 


= 
—_ 
= 
. 


Same as start of next hole? 


766 BNEQ 408 branch if not 


168 : combine this hole with next hole 


5 ; get new hole size 

; get rid of high hole 

; get next node addr 
Rae 


55 08 ag co 


vu 
rr 
o 


ADDL2 8(R2 
REMQUE (R2) 
MOVL (R2) 


Sete Se Se Se Ge Ge Oe & 


iui Pabebeababababeababababababababdadbchubabebhchabwbababad bababuabababaichababababababhabebabahabababababaibal 
CLLR LS 
~ 
~ 
lan 


0 
0 
0 
0 
0 
0 
01BE 
O1BE 776 NOTE: 
Q1BE 777 assumes the address _ 
QO1BE 778 in the deleted node is still 
Q1BE 779 valid! (it should be.) 
O1BE 780 ekeeee 
O1BE 781 
01BE ree 3 : . 
0 : re? 3; check if the hole can be combined with the previous hole 
— 785° 
50 04 A2 00 QO 786 40$: MOVL 4(R2),RO 3 get previous hole addr 
53 50 obi Q 4 44 CMPL RO,R3 3; is it the head? 
OF 13 0 788 BEQL 60$ :; branch if yes 
51 50 08a0d0 C1 8 789 ADDL3 8(RO),RO,R1 3: get end of previous hole 
54 51 O01 C 790 CMPL R1,R4 3 Same as start of hole 
8 F 791 ; being returned? 
05 ie F 79 BNEQ 60$ ; branch if not , 
08 AO «655 CO O1D1 79 ADDL2 = R5,8(RO) ; just add in the additional 
: 794 : size and that's all 
05 795 RSB 3; return to caller 
$ 9 
0 2 a 3 must create a new node for hole being returned 
00 * 
08 AS «655 ~=«O é 1 608: MOVL R5 ,8(R4) ; set its size 
60 64 OF A INSQUE (R4), (RO) : and insert it 
0 D 03 65$: RSB 


: 
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~SBTTL RMSRETSPC = MEMORY DEALLOCATION ROUTINE 


s++ 


; RMSRETSPC1 = set up free List header and return space 
RMSRETSPC = return epee 
RMSRETBLK1 = set up header and return space with length field 
RMSRETBLK = return space with Length field 


this routine returns memory to the free space list, or to the system 
paged pool. 


the List is kept in ascending ag | sequence to facilitate 
combining holes. holes are not combined across page 
boundaries however. 
note that any hole less than 12 bytes in Length is implicit 
(i.e., it has no header Linking it into the list). 
calling sequence: 
BSBW RMSRETSPC 
alternate entry at rm$retblk to return a block ee ie 
its length stored as a # of Longwords in byte 9 of the returning space. 
for this entry the r2 input is not required. 
input parameters: 


impure area address 


r4 addr of space being returned 
r3 any addr in page having free space header 
re Length in bytes of space being returned 


inplicit inputs: 
none 
output parameters: 
r0 thru r5 destroyed 
implicit outputs: 
the free space list is updated. 
completion codes: 
none. 
side effects: 
none 
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5359 
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52.0 
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1 
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52. 8E 
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C512: ~ LONG 


r3 is not an 
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512 


nput 
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RMSRETSPC1:: 


b/irab 


PUSHAB B“RMSRETSPC 


s++ 


3 subroutine to load ifab addr into r3 


SETHDR3: 
MOVL 


ASSUME <IRBSC_ 
ASSUME <IFB 


ASSUME IFBS$ 

BLBS IFBS 

MOVL IRBS 
10$: RSB 


additional input: 


RMSRETBLK1: : 


BSBB SETHDRS 


: alternate entry here to return a block 


RMSRETBLK:: 
MOVZ 9¢ 
ROTL #2, 
RMSRETSPC:: 
aoele #15 
BICL #15 
1$: CMPL R2, 
BLSS 5$ 
3$: PUSHL R4 
MOVa R2 
BSBW RM 
Ova ‘5 
ADOLS 6C 


R9,R3 


r3 is not an input 


1 
IRB$B_BID 


; branch if structure is ifab 
; get ifab address from irab 


AX/VMS Macro Vv04-00 
RMS .SRCJRMOBUFMGR.MAR; 1 


; constant for page size 
alternate ogtry to a space ce to y--4 free space List 


additional input: 


; get ifab addr into r3 
3 and go do normal return 


; assume ifab addr in r3 


alternate entry to return block to ifab free space List 
r9 = ifab/irab addr 


oéér into r3 


nto normal return blk 


having a length code 


pick up length from block 
convert to # bytes 


Trt round to multiple 


Saeuanati 


branch i 


ie “at least a page? 


save rentoners 


return 1 pa 
restore regis 
adjust Bese. “of returning space 


ae ll free page List 
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RMOBUFMGR BUFFER MANAG 16=SEP=1984 00:10:59 VAX/VMS Macro V04-00 p 
vo4-000 RMSRETSPC MEMORY DEALLOCATION ROUTINE 'SeSEP=19B6 Soroyi77 Pans eRcHamOgUEMCReGaR:1 ae 28, 
sf 6UcShwawhC«<=sS SUBL2 £312.Re : addjust Length of space left 
) try $ 3; branch if more space to return 
53 FODF CF CA 5$: BICL2 ¢511,R3 3 get free space List head addr 
55 gf dO MOVL G3'Rs F Kove for ond test 


scan for a nole having a higher address 


55 63 01 10$ CMPL (R3),R5 : end of List? 
2A s13 BEQL 50$ 3; branch if yes 

53 63 00 MOVL (R3),R3 : get next hole addr 

54 CO«S3Stié@ CMPL =e R3,, RE : higher than hole being returned? 
F341 BLSSU 108 : branch if not 


the hole at r3 has a higher address than hole being returned. 
try to combine with either the next or the previous hole or both. 


DOOOOOOOOOOOOOOOOOOOOOOOOOOO Em 
BPP EEF EWN IIWIWIWIWIDIRNINININNPNNN SoM 


NOME WO OOO NAME WN 9 OD NAU EWN 0 OD NAUE WN (OO OONOUS WN OO 


| 
| 
| 
20$: ; both buffers in same page? 
31 to 0 
| 
| 
| 
| 


FUPUSUSUSUSUSUSUSUS SUSI £™ B* B B* ES ES ES EY EE AANA AAI AIT OPONINPIPNPOPINY NN | S| SUS 


R MA 
TSPC 
6 
A 
: 
8 8 
A 
022D 
0 
0 
0 
0 
0 
0 
0 
51 54 53 CD 8s XORL5 R3,R4,R1 : set bits 9- 
8 6 : if in same pa e 
51 FDC6 CF CA 0236 BICL2 C511,R1 3; clear bits = 
0238 : 2 - set if 9-31 also zero 
13. 12 0238 BNEQ 40$ : branch if not 
51 53 54 C3 0230 SUBL3 = R4,R3,R1 : get difference between the 
0241 94 ; buffer addresses 
5i 52 C2 0241 94 SUBL2 R2,R1 3; less the length of the 
0244 94 : returning buffer 
OA 12 0244 95 BNEQ 40$ 3: branch if not exact 
0546 98 
0246 955 ; combine the returning hole with the next hole 
O546 988° 
52 O08 AS CO 0246 95 ADDL2 8(R3),R2 3; get new hole size 
8s A 95 : = old + new 
53 63 OF A 95 REMQUE (R3),R3 ; get rid of high hole 
53 63 00 024d 95 MOVL (R3),R3 : get addr of next higher 
0250 9% ; hole 
0250 96 NOTE: : 
6 96 : note: assumes Link still 
96 : valid. 
sh 
0 0 38 3; check if hole can be combined with previous hole 
968 * 
53 04 4 D0 0 969 40$: MOVL 4(R3),R3 3: get addr previous hole 
|: D1 4 970 50$: CMPL R3,R5 : is it the head? 
1E 13 7 971 BEQL 4-6 0$ : branch if yes 
9 3°6 3; two buffers_in same page? 
51 54 53 CD 9 97 XORL3 R3,R4,R1 3 set bits 9-31 to 0 
5D 974 : if in same page 
51 FD9F CF CA 0250 975 BICL2 C511,R1 ; clear bits 0- | 
} 
| 


"12 a 
RMOBUFMGR BUFFE G =SEP=1984 00:10:5 AX/VMS M v04-00 P 1 RP 
roe = 1882 99:30:99 RMOB mat” 


R MANAGER 19 SE 1 
RMSRETSPC = MEMORY DEALLOCATION ROUTINE SE :2 RMS .SRC JRMOBUFMGR.MAR; 1 S) 
6 ? 3 2 - set if 9-31 also zero $! 
1 8 $3 arf BNEQ 60s 3 branch if not $! 
Mm: 8. % C 6 8 SUBL3. = R3,R4,R1 i get difference between the $ 
68 97 ; buffer addresses $! 
51 O08 Ad ¢C 6 980 SUBL2 8(R3),R1 ; less previous buffer length $! 
9 1 6C 981 BNEQ ; branch if not exact | $! 
08 A3 zs -¢ § 5 ¢ ADDL2 = R2, 8(R3) ; merely add size of new returning | $ 
8 9 3 space to previous hole size AS 
54 53 DO 0272 984 MOVL R3,R4 3 copy hole addr | AS 
07 11 873 989 BRB «BOS go check end condition a‘ 
8 of i 3 create a new node for hole being returned . 
08 AS «52 «20 0277 «2989 608: MOVL  R2,8(R4) ; set hole size BI 
63 OE 0278 990 INSQUE (R4),(R3) ; & insert it Bt 
8 7E 991 Bl 
7E 336 BI 
O27E 995 ; check for invisible space at end of page and reclaim if any BI 
O27E 994; BI 
O27E 995 Bt 
51 54 O08 AG C1 O 43 996 80$: ADDL3 8(R4),R4,R1 ; addr + size BI 
51 _FFFFFEOO 8F CA 028 997 BICL #*C MASK,R1 : get offset in page Bl 
51 O1F8 BF A2 O28A 998 SUBW #512-8,R1 ; & bytes from end? Bi 
04 12 O28F 999 BNEQU 9 3; branch if not Bi 
08 AS «608 «AO (0291 1000 ADDW2 #8,8(R4) 3; update the length Bi 
0295 1001 Bl 
0295 1908 3 Bl 
8592 Oba 3 If we have accumulated a page from all these scraps, we can give it back Bt 
$598 1005 ;90$: CMPL €512,R2 ; did we manage to scrape up a page? Cc! 
0295 1006 ; BNEQ 95$ ; if not, continue ; fa] 
0592 1007 ; REMQUE (R4),R4 ; if so, remove from free List cP 
0295 1008 ; BSBW RMSRET1PAG 3; and give back this page now Cc} 
0$92 1009 ; sx* Ch 
0295 1010 90s: ES 
05 0295 1011 95$: RSB EF 
0296 1012 Es 
Es 
et 
El 
E) 
F' 
F 
Fl 
Fi 
Fi 
Fi 


te Oe 


a = _ 


r4,r5 also > oe Mae if r0 indicates an error 
implicit outputs: 
the affected free space and free page lists are updated. 
completion codes: 

standard rms, in particular, success or dme. 
side effects: 


none. 
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RMSALDBUF = BDB AND 1/0 BUFFER ALLOCATIO greene 4 90:39:93 FRMS. SRCIRMOBUEMGR MAR: 1 ° (96) 
$6 i -SBTTL RMSALDBUF - BDB AND 1/0 BUFFER ALLOCATION ROUTINE 
9 18 p++ 
96 7; 
3 18 : RMSALDBUF = allocate buffer and bdb to go with it 
: this routine performs the following functions: 
96 j : 1. allocate and init a bdb 
56 3 2. allocate an i/o buffer (of an integral 
96 ¢ s number of pages) if r5 non-zero 
$ ; calling sequence: 
8 ; BSBW —- RMSALDBUF 
50 : input parameters: 
; 3 : ri impure area address 
33; r10 ifab address 
$e : r5 length of buffer in bytes 
36 : implicit inputs: 
38 ; none 
39; 
40 ; output parameters: 
: r4 address of bdb 
3 r3 address of buffer 
: re total size in bytes of allocation 
3 r0 status code 
3 ri destro 


DOODOOOOOOOOOOOOOOOODOOOVOVOOOOOOOOOOOOOO 


coo 
DAP AA AAA AA AA AA AAA AAA AAA AAA AAA AAAAAAAAAA OS 


RMSALDBUF : : 
BSBB 


ee a ee ee a a a ee ee me ee a a ee ed dh 
SOOCOCOOGOOOOOOOCOOOCOCOOOOSSSSGOOOSOOSGOOSCOO COO OSOOCOOCOOOOOOOOOOOOOO 


SOOOCOCOCOOOCOCOCOOCOOCOCOO CSO SCOOOOOOCOO COO OCOOCOOCOOOOOOOOO 
SPAAAAAA AAR MA & EERE 


PIPOPIPOPDPONIPIPININININININININININIPININPININIPININININININPNIPNPo PNP 


OOO NA NEW DOONAN WIN OC OONOUS Wir 


gf 10 S RASALBDB 3; get a bdb 
1 50 =€9 98 BLBC RO,20$ ; branch on error 
54 51 00 98 MOVL R1,R4 3; save bdb addr 
52. 55) oD 9 MOVL R5,R2 ; move buffer len to right reg 
1601 A BEQL ©. 208 : eql then wants only bdb (no buffer) 
FD61 3 A3 BSBW RMSGETPAG ; and get an i/o buf 


er 
(Len/7addr returned in r2,r3) 


P 
o 


Sl 


C 13 


FMGR BUFFER MANAGER 16-SEP-1984 00:10:5 AX/VMS Macro V04-00 Page 23 | 
Voee 000 RMSALDBUF = BDB AND 1/0 BUFFER ALLOCATIO et 98:39:33 LRMS  SRCIRMOBUFMGR MAR; 1 ' fd) 
1150 €9 “6 1071 BLBC RO,50$ ; branch on error 
AS 1098 | 
A9 1074 ; set buffer size and address into bdb 
AY 1075 ; 
AQ 1 26 
16 AG 5 B60 AY 107 MOVW R5,BDBSW_SIZE(R4) 
2C AG BO AD 1 4 MOVW R5,BDB$W_ALLOC_SIZE(R4) 
18 AG DO Bi 107 MOVL R3,BDB$L_ADDR(R4) 
28 AG O5 o? BS 1080 MOVL R3,BDBSL_ALLOC_ADDR(R4) 
05 0289 1081 20$: RSB 3; note: r0 still valid. 
Bak Rk 
BA 1084 ; error allocating the page - must return the bdb 
O2BA 1085 ; 
O2BA 1086 
48 10 Q2BA 1087 50$: BSBB RMSRETBDB 
O2BC 1088 
O2BC 1089 ERRDME_BR: 
FE2D 31 O2BC 1090 BRW ERRDME ; restore error code 


vee 


51 5A 


52. 14 
FE9E 


08 50 


08 Al 
44 BA 


ao 
oO 


ooo 


BUFFER MANA 
RMSALBDB - 


mror 
@Oww 
es a] 


MMMM PoNPor 
owwww 
WDD WOWW WOONONA nn nr or 


SOOOOCOOOSOOOOCOOCO OOOO O OOOO OCOOOOSCOOCOOOOCOCOOCOOOOOOOoOOoOO 
wow 


POPOPIPINIPONINIPYPONYNINYNY 


DOOOOOOOOOOOOO 


D 13 
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BDB ALLOCATION ROUTINE “SEP=1984 16:21:17 CRMS.SRCIRMOBUFMGR.MAR; 1 
35 -SBTTL RMSALBDB - BDB ALLOCATION ROUTINE 
94 ;++ 
38 RMSALBDB - allocate and initialize a buffer descriptor block (bdb) 
calling sequence: 
BSBW RMSALBDB 


input parameters: 


ri impure area address 
ri0 ifab address 


implicit inputs: 
none 
output parameters: 
ri address of bdb 
r0 status code 
r2,r3,r4 destroyed 
implicit outputs: 


the bdb has its block length and b 
and it is Linked into the ifab's b 


completion codes: 


Lock 
db | 


side effects: 


none 

RMSALBDB: : 
MOVL —-R10,R1 ; 
MOVL § #BDBS$C_BLN/4,R2 : 
BSBW = RMSGETBLK : 
BLBC RO, 10 : 


: set id into bdb and link at end of the 


VB #BDBSC 
QUE (R1),aT 


B 
$s F 
B 


mo 1D,BDB$B_B1D(R1) 
N B$i_BDB_BLNK(R10) 


I 
10$: RS 


ma a a a a a et = od = = — 2 3 2 2 = 2 = = ot 2 8 ot = = = = = = SS 1 2 


ee ee a ek tk ek dd dd dd dd dd IO 
BERLE PWN IWINWIWIWIGPDINPNININIDPININDID 2 2 OO  MQOOOOOOOOCOOOONO 
NOUS WR CO OONOAUE WA 9 OOONAUE WIN 0 OONOAU EWN OC OONAUE WN O00 


i 
ist. 


d fields filled in 


standard rms, in particular, success and dme. 


copy ifab addr as this 
defines the page for the 
free space List header 

# Longwords required 
allocate zeroed space 
(ri set to addr) 

branch on error 


ifab's bdb List 


3; note: r0 still has status code. 


———_—_---------___— 
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-SBTTL RMSALGBPB = GBPB ALLOCATION ROUTINE 


* 
> 


RMSALGBPB = allocate and initialize a buffer descriptor block (gbpb) 
calling sequence: 
BSBW RMSALGBPB 


~s~J 
= 


input parameters: 


rij impure area address 
r10 ifab address 


implicit inputs: 


none 


ri address of gbpb 

r0 status code 

2, r3,r4 destroyed 
implicit outputs: 


the gbpb has its block length and black + % fields filled in 
t is Linked into the ifab's gbpb Lis 


completion codes: 


and 


standard rms, in particular, success and dme. 
side effects: 


Bete Ge Se Ge Se Be Be Se Ge Ge Se Ge He Be Ge Se Ge Ge Ge Be Sse Ge Se Se Se Sete Be Se Se Se Se Se Se Se Be 


| 
| 
| 
| 
| 
output parameters: 
| 
| 
| 
| 
| 


a ek ek a a td dd od ed = SS = 2 2 — —) — bd 2d — 2) 4 2d 2d 2 —) 3 dd dd a — — 2d — ss a a ts os ts 


DBDOOOOOOOO0OO OO CO 0000 09 09 09 09 69 09 09 09 SI NINN SIS NNN NAA AAAAAAAAOMUIUNIMUIUIUIUIUIUN 
PWN 9 OONA UE WN O OOONIAU EWN S OD NAMES WIN 2 O ODNOAUE WAR —OOONOAUSWIN—O”0 


POPIPIPIPIPOPYNIPONDNONINININIPINININININININININININININININININININININYININIPIPYNIPYININIAININININVPINININMNINY 
MMMMMMMMOOOCVOVVSTVVTVVTVIOVUVTITIOVTOVTVVVVVVVVCVCCTVCCTCC0C0000T"078 


See eee eee eee eee ww wie lol elo lololololololalololololololololololo) 
fo Pel ol ol ol ml ib ee or or or or or or ot a ot at ot ot ot ot ot et et et ot et oe et oe ee ee ee 


none 
RMSALGBPB: : 
51 5A 00 MOVL R10,R1 ; copy ifab addr as this 
: defines the page for the 
3; free space List header 
52 OA 0 MOVL #GBPB$C_BLN/4,R2 3; # lLongwords required 
FE89 0 BSBW RM$GETBCK : allocate zeroed space 
3; (rl set to addr) 
08 50 =—«E9 BLBC RO, 108 : branch on error | 
> set id into gbpb and Link at end of the ifab's gbpb List 
08 Al 15 90 MOVB arene BID,GBPB$B_BID(R1) 
44 BA 61 bE INSQUE thi ) @lFBS_ _BDB_BLAK (R10) 
0 10$: RSB 3; note: r0 still has status code. 


-z 
o,r 


‘> 
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-SBTTL RMSRETBLB - BLB DEALLOCATION ROUTINE 


RMSRETBLB - return specified BLB 


This routine Spa eeets the space used by a BLB, and removes it 
from the ifab Lis 


Calling sequence: 
BSBW RMSRETBLB 
Input parameters: 


R4 = address of BLB to be returned. 
R10 - ifab address 


OOOOOOCCOOOCOCOCOCOCOCO =z 


NNSA OCODODDODOODDDDDDDO DODD DODOO0D000000 
ee ee ee ee ec ee ee ee ee ee ee ee ed ee 
APIPOPIMOMOPONINONONY | 2 2 3S tO Ca 
SCODNAU EWN OODNOU EWN ODOT 
Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge 


0 
8 Output parameters: 
8 RO - RS destroyed. 
8 Completion status: 
. : none - success is assumed 
$5 31 ;-- 
02 3 
02 33 RMSRETBLB:: 
54 64 OF O02 34 REMQUE (R4),R4 3; Remove from BLB chain. 
24 A4 «2+S O02 235 TSTL BLBSL _LOCK_ID(R4) ; Make sure no lock is held. 
06 12 O02 36 BNEQ 10$ 3; NEQ Lock not released. 
53 SA 4 02 37 MOVL R10, R3 : Free space header into R3. 
FEFB 1 Bg $35 BRW RASRETBLK ; Return the blb. 
02 240 108: RMSPBUG FTL$_LOCKHELD ; This is a problem. 


| 
| 


rae i, 


| 


GER 16-SEP-1984 00:10:5 AX/VMS Macro v04-00 
=~ GBPB DEALLOCATION ROUTINE sey 7 99:39:39 


tg -SBTTL RMSRETGBPB - GBPB DEALLOCATION ROUTINE 
oa 


* ++ 
RMSRETGBPB - return specified GBPB 


This routine deallocate the space used by a GBPB, and removes it 
; from the ifab List. 


Calling sequence: 
BSBW RMSRETGBPB 
Input parameters: 


R4 = address of GBPB to be returned. 
R10 - ifab address 


Output parameters: 
RO - R5 destroyed. 
; Completion status: 
none = success is assumed 


Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Gee Ges 


DB sd tb 8 a ts 4 a a te ts a te tk te lt 


MRPIPENINININININIPINININININININININININVINININININININININN 


SND OS OS OO DS ODE TTT ES 
MO OONAUES WN O OONAULS WN" OWOOnNOu 


RMSRETGBPB: : ; 
54 64 OF REMQUE (R4),R4 ; Remove from 8DB chain. 
53 SA 00 MOVL R10, R 3; Free space header into R3. 
FEEB = 31 BRwW RMERETBLK ; Return the gbpb. 


RMS .SRCJRMOBUFMGR.MAR; 1 


5 
| 
| 
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? 


- 


RMSRETBDB - return specified bdb 


removes it from the ifab's ogo li 
buffer count if a buffer is deallocated. 


The entry point RMSRETJNLBDB is used to de 
(Journaling specific BDBs and buffers are N 


calling sequence: 
BSBW RMSRETBDB 
input parameters: 


OOO 00909000009 0909 09 09 00 SII NI 
WR OOODNAULS WHO Oe 


ono 
= 


DOONAN WN 9 ODA UE WIN OO ODNAUES WN OVOONOM 


rii impure area address 
r10 ifab address 

4 bdb address 
implicit inputs: 

none 

output parameters: 

r0 thru r5 destroyed 


implicit outputs: 


completion codes: 


none 


WIN AWW AWW AAA AWWW AAAAA AWA WNINWIAWAANANWII 


side effects: 


none 


Sete Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Ge Ge Ge He Se Ge Ge Fe Se Se Se Se Se Se rates 
7 


RMSRETBODB: : 
CMPB 


=o 
wm 


ASSUME BDBSL_FLINK EQ 0 
REMQUE (R4),R4 


oO 
=A 
a a td. a bb ss — bs dn bs — ss a st a ss bs a a a a tt tt tt 


WWIWAIANINIAWW ws 


COOOOCOOOOOCOCOCOOCOOCOCOO COO OSOCOCOCCOCCOGOOCOCOOCOCOCOOOOOOCOOOoO 


APR ROMIMIPONININININ — | > = = SOOOOOCOOOOO ODO O 


This routine deallocates the space occupied b 


all 
oT 


AX/VMS 
RMS.SR 


C 


aR 


a bdb, 


ocat 
Link 


st, and deallocates 
the associated i/o buffer, if an Also adjust the 


ked 


the free space and free page Lists are updated. 


tty BID(R4) ,ABDBS$C_BID ; is it a bdb? 
BNEQ ERRBUG1 ; branch if not 


v04-00 P 
MOBUEMGR MAR: 1 ate G 


7 -SBTTL RMSRETBDB - BDB AND 1/0 BUFFER DEALLOCATION ROUTINE 


ournal BDB and buffer. 
nto the IFAB BOB List.) 


: remove from ifab bdb List 


: The next entry point id used to return journal BDBs and buffers. 


55 


54 


BUFFER MANAGER 
RMSRETBDB - BDB AND 1/0 BUFFER DEALLOCAT 


-o-90-C090 
—FM—WOo 


DO 


31 


SrREp=1986 10: 
RMSRETJNLBDB: : 


return i/o buffer if any 


MOVZWL BDBSU_ALLOC_SIZE(R4) RS 
BEQL 0$ 


R4 
BOBSL_ALLOC_ADDR(R4) ,R4 
RMSRETPAG 


IFBSL_IRAB_LNK EQ 


R10,RO 

TRBSL_IRAB_LNK (RO) ,RO 
TRBSL_CURBDB(RO) ,R4 
IRB$L_CURBDB(RO) 

60$ 


now return the bdb 


WIWNNINI NINN ANAANIAI AAI AIAN WIN AIAN ANNI NANI NIA NINI NI NININ AIAN NWI 
WIAA AAAAI ANIA AIA AAAI AI AIP POPOPIPNNPYNONININIDY POs ss Ss ss Ss ss es 


AOAAOAIAOQOODPAAAADX & HD OUNINNNNNNIN BOM WAAA LOOSCKOKOCOO 


tk tt a sb os 2b — 2b 2s bs — 2s a 2b bs 2s — 2 ab tb bs ns bs — as bb bs — bb a tt 


AIWNANAIWAN AAAI AIAI AAI AWWW AINA 


SINNED OS DS DS ODD OD DS TUT BS BS BS BB BE BE ENNIO 
MEUM 0 OONAUE WN OS ODO NAU EWN O OODNOAUE WIN 0 OONOU En 
+ ee ee ee ” 


Q 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
Q 
Q 
Q 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 


RMSTBUG FTL$_BADBDB 


Sete Se Se 


10: AX/VMS M 4- 
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RMS .SRCJRMOBUFMGR.MAR; 1 


length of i/o buffer 


; branch if none 


save bdb addr 

get buffer addr 

and deallocate the page(s) 
restore bdb addr 


check for bdb referenced in curbdb field of any irab and if so zero 


IRB$L_IRAB_LNK 


get ifab addr to right reg 
bee up next irab 
ranch if no more 
using this bdb? 
branch if not 


; invalidate 


and continue 


copy of ifab addr f 
(free space header in this 


page) 
return the bdb space 


the returning block was not a bdb! 
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RMSALBLB = ALLOCATE BUCKET LOCK BLOCK ~SEP-19 RMS ..SRC JRMOBUFMGR.MAR; 1 (16) 
43 1377 -SBTTL RMSALBLB - ALLOCATE BUCKET LOCK BLOCK 
43 1 8 34+ 
43 1379; 
r ! ? 3 RMSALBLB 
2 ! § : Function Description 
43 1384; Allocate and initialize static fields in the BLB. 
2 ! Ss Link into BLB queue off the ifab. 
r ! 8 : Input Parameters: 
8 43 1 Hy s R11 impure pointer 
0343 1390 ; R10 ifab address 
0343 1391 ; 
8 43 1 35 s Output Parameters: 
43 1393; 
0343 1394 ; R1 address of BLB 
0343 1395; RO status code 
0343 1396; 
O3e } 4 3 Implicit outputs: 
o3e 1730 3 Many fields in the argument block portion of the BLB are initialized. 
833 1401 ; Completion codes: 
034 1eR6 ; 
0343 1403; Standard RMS - usually SUC or DME 
0343 1404 ; 
0343 1405 ;-- 
0343 1406 
0343 1407 RMSALBLB:: 
1C 6BB Ose 1408 PUS #*M<R2,R3,R4> ; Save registers 
51 5A 00 8 45 1409 MOVL ; Get free space header into R1. 
52 of 0 te 1410 MOVL #BL BSC BLN/4, R2 ; Want Length in longwords in R2. 
FEI 0 0348 1411 BSBW RMS$GETBLK ; Get the lock. 
12 50 €9 O34E 16 BLBC RO, ots Exit on error. 

08 Al 10 = 90 33] 141 MOVB #BLBSC BID BLBS8 g1D(R13 Set BID. 

18 Al 04 00 55 1414 MOVL BLBSt RESDSC(R1) : Stuff size of resource to 4. 
14 Al ODE $27 1415 MOVAL BLése Rid ~ ; Set address of resource name 
1C Al 035C 1416 BL BSL “RESDSCe i R1) into descriptor. 

009C DA 61 O€ Oa2G 1417 INSQUE at By les “BLBBLNK (R105 3; Link into BLB queue. 
1¢ BA 0363 1418 10$:  POPR M<R2,R : restore registers 
05 0365 1419 RSB 
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66 -SBTTL RMSALDJNLBUF = JOURNAL BDB AND 1/0 BUFFER ALLOCATION | 
| 


AAO 


Se eeee 
+ 


; RMSALDJNLBUF = allocate buffer and bdb to go with it 
this routine performs the following functions: 
1. allocate and init a bdb 
2. allocate a journaling buffer (of an integral number of pages) 
NOTE: Journal BDBs ALWAYS have buffers. 
calling sequence: 
BSBW RMSALD JNLBUF 


input parameters: 


rij impure area address 
r10 ifab address 
r5 Length of buffer in bytes 


implicit inputs: 
none 

output parameters: 

r4 address of bdb 
| 
| 
| 
| 
| 
| 


r3 address of buffer 

r2 total size in bytes of allocation 
r0 status code 

ri destroyed 


r4,r5 also destroyed if r0 indicates an error 
implicit outputs: 


the affected free space and free page lists are updated. 
the BOB is NOT Linked into the IFAB BDB List 


completion codes: 
standard rms, in particular, success or dme. 


DDD DDD DDD DDD DDD DD PPP PAA AAA AAA AA AAA AOA AO 


o 
SS SSSSS SS SS SSS SO GO Ge OO Ge ree rrr 


side effects: 


AIAN ANA AANAWAW AIAN AWN WWW AAAI NIN WIWNIANAINI 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Se Ge Ge Sse Ge Ge Ge Ge Se Se Ge Se Sse Ge Se Fe Se Se Se Ge Se Fes 


PPPS Te Se ee ee 


NNN NN NNO AAA AAAAAOA UNM BRE EE EB BBW 
NOAE WIN OOD NA UNE WIR SO OD NAN EWN SO OD NAME WN 0 ODNANE WIN OOO NOU FE WN 


a a a ak ak a a ak at ts bw st = = 2 ts 2 4 4 2 ss ts Ss 4 9) ss © 1 I  _s 2 2 1 


SOOOOOOCOCOOCOOCOOCO COSCO OOCOOOCOOCOOCOCOOCOOCOOOCOOOCOOOCOOOOOOCOOO 


66 none. 
66 
6 =— = 
66 
oe RMSALDJNLBUF : : 
r re BSBB 9 toe ; get a journal bdb 
2150 €9 6 BLBC RO,60$ ; branch on error 
re PE 68 MOVL ° ; save bdb addr f 
2 . s of MOVL R5,R2 ; move buffer len to right reg 
te BEQL 20 : eql then wants only bdb (no buffer) 
FC91 = 30 73 BSBu RMSGETPAG z and get an i/o buffer 


FMGR 
v04- 


11 50 


mw 
ao 
>>, 
se 
wn 
WWW 


84 
FDSD 
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RMSALDJNLBUF = JOURNAL BDB AND I/O BUFFE SE 


ia) BLBC RO,50$ ; branch on error 


; set buffer size and address into bdb 


ins) eetes 
So 
of 
= 
o 
<= 
<£ 
@ 
wr 
> 
@ 
o 
oo 
ad 
= 
‘ 
nm“ 
— 
Me 
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~~ 
» 
rm 
~~ 


MOVL Rg -BOSSL ADDR (RY 
R3,BDB$L_ALLOC_ADDR(R4) 


MmOooo 


ovUuT00W 


; error allocating the page - must return the bdb 
50$: BSBB = RMSRETJNLBDB 
60$: BRW ERRDME 


10 
31 


00000 0000000000000 00000000 i 


NN eee 
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2» =z 
o 
< 
Pa 
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WAI AAAI AAA AANA NWNI 
20000000009 090909098 INI INNS 
OOPPrrrrovi—-TCOoOoVowovVoeo 
Ok a 


ee ee oo lololololo) 


3 note: rO still valid. 


; deallocate journal B6DB 
3; restore error code 
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3; (len/addr returned in r2,r3) 


Page 32 


(17) | 


Mm 13 
RMOBUF MGR BUFFER MANAGER 16-SEP-1984 00:10:59 VAX/VMS Macro V04-00 P 3 
v04=000 RMSALJNLBDB = JOURNAL BDB ALLOCATION 873 p=19 4 9:3 217 CRMS.SRCJRMOBUFMGR.MAR; 1 day 


-SUBTITLE RMSALJNLBDB = JOURNAL BDB ALLOCATION 


+ 
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RMSALJNLBDB = allocate and initialize a journal BDB 
calling sequence: 
BSBW RMSAL JNLBDB 
input parameters: 


rij impure area address 
r10 ifab address 


implicit inputs: 
none 
output parameters: 
States code 
r2.r3.r4 destroyed 
implicit outputs: 
the bdb has its block length and block id fields filled in 
completion codes: 
standard rms, in particular, success and dme. 
side effects: 


A.A. AANA. AAAI NWI AAAI AAAI AAI AAAI AAI 
TRC P CeCe Ieee TEC rerererererererererererererererererererererere rere rer 


WOO OO 00000 09 99 09 09 Cd 09 09 C9 CD GD CD Cd CD C9 GD OD CD CD OD CD CD G9 CD C9 CD OD 00 CD CD CD 


>Pro 
oon ee ee ns Des es i Be Be DD Be Ds Ds Be es Be Ds Ds Ds es DB Bs ss i ss es es se Be Be Be 


none 
RMSAL JNLBDB: : 
51 5A 00 MOVL R10,R1 ; copy ifab addr as this 
:; defines the page for the 
; free space List header 
52. 14 B° MOVL #BDBSC_BLN/4,R2 : # longwords required 
FOCE 0 BSBW RMS$GETBLK ; allocate zeroea space 
; (rl set to addr) 
0450 €9 BLBC RO,10$ 3; branch on error 


: set id into bdb 


nove #B0B$C_BID,BDB$B_B1D(R1) 


08 Al OC 90 . 
: note: r0 still has status code. 


10$: 


i i ha i i i ak a ak at tk tk at ot ot 2 tt 2 
SR dd dnd dn en ned lth dh eh eth eth edb dh eh dah dh dh duh dkcb ech adh alah “adh cdc cheb che Dae ead 


UNE EERE EEE SE EWWWWAWA WAAR RIPON 2 3 BOO OO OOOO 0 
R= OODNAUNEWN OO DONOUE WN OOO NAUEWN OOD NOUEWN OOD NAOUEWN—OOo 


SOOOOCOOOOCOOCOOO COCO COCO COSCCSCOCOCOCOCOCOOCOCOCOOCOOOOOOOoOOoOO 


WANA A AIAN AI AAAI 


~ END 


ge Macro V04-00 
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BUFFER MANAGER 
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RMS .SRCJRMOBUFMGR MAR; 1 


NOEXE NORD at NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 


RMOBUS MGR BUFFER MANAGER i ae 8 49 90: 10:39 AX/VMS Macro V04-00 Page 
Symbol table -SEP=1984 16:21:1 
SYSSCNTREG eeeeeree GX 1 
SYSSEXPREG eeneeene 6X a 
SYSSSETPRT eeeeeree GX 01 
dpe wmonwee nee ran enna > 
: Psect synopsis ! 
} ee ween aemenos ao 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000 00 <¢ s-} fe NOPIC USR CON ABS LCL oo re 
RMSRMSO OOO0SA0 ( 928.) a} 9} PIC USR CON REL GBL NOSHR 
SABSS 0000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR 
pw wmommmen aware nae e se serene + 
! ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 36 00:00:00.07 00:00:00. 92. 
pounens processing 130 00:00:00.73 00:00: 205.04 
509 00:00:20.82 00:00:54.27 
Fe table sort 0 00:00: g-59 00:00:05.11 
ass 2 249 00:00:05.0 00:00:14.31 
Symbol table output 14 00:00:00.16 00:00:00.62 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 942 00:00:29.72 00:01:20.30 


rose’ k ine set Limit was 1950 pages. 
1129 bytes (225 pages) of virtual memory were used to buffer the intermediate code. 

There were 100 pages of symbol table space meceree to hold 1894 non-local and 48 local symbols. 
135¢ source Lines were read in Pass 1, produci ngo'6 object records in Pass 2. 


pages of virtual memory were used to define macros. 


Macro Library name Macros defined 
“B35Ss0UAg8: RMS. aims - Ey 1 26 
mitten $ :(SYS.08 MLB; 1 6 

Bee UAS pS 73-083 18 ate MLB;2 14 

TOTALS (all libraries) 46 


2143 GETS were required to define 46 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:RMOBUFMGR/OBJ=0BJ$:RMOBUFMGR MSRC$:RMOBUF MGR/UPDATE=(ENHS: RMOBUF MGR) +EXECML$/LIB+LIB$:RMS/LIB 
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